home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / opus55it / Installa < prev   
Encoding:
Text File  |  1997-02-21  |  2.4 KB  |  88 lines
  1. ; $VER: Install Opus5 Italian (01.09.95)
  2. ; Script to install the Italian catalog translation for Opus 5.5.
  3. ; Adapted Dr Greg Perry's Norsk version
  4. ; by Francesco Dipietromaria
  5.  
  6. (set #install-msg
  7. (cat "\n\nScript per l'installazione della\n"
  8.      "localizzazione italiana di Directory Opus 5.5\n\n"
  9.      "DOpus 5.5 è ©1996 Jonathan Potter & GP Software\n"
  10.      "Traduzione a cura di Francesco Dipietromaria\n\n"
  11.      "Per qualsiasi suggerimento o correzione sulla traduzione\n"
  12.      "potete mandare una e-mail al seguente indirizzo:\n"
  13.      "dpm@sinet.it"
  14. ))
  15.  
  16. (message #install-msg)
  17.  
  18. ;=============================================================================
  19. ; check if Directory Opus 5 is already installed
  20.  
  21. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  22.     (abort "Dovete prima installare Directory Opus 5.5")
  23. )
  24.  
  25. (set @default-dest "")
  26.  
  27. ;=============================================================================
  28. ; install catalogs
  29.  
  30. (copyfiles
  31.    (source "Catalogs")
  32.    (dest "DOpus5:Catalogs")
  33.    (pattern "#?")
  34. )
  35.  
  36. ;=============================================================================
  37. ; install Italian version of buttons banks
  38.  
  39. (copyfiles
  40.    (source "Buttons")
  41.    (dest "DOpus5:Buttons")
  42.    (pattern "#?")
  43. )
  44.  
  45. ;=============================================================================
  46. ; make Italian lister menu the default
  47.  
  48. (if
  49.    (askbool
  50.       (prompt "La versione italiana del menu lister pop-up "
  51.               "è disponibile.\n\n"
  52.               "Volete installarla e rinominare quella vecchia come\n"
  53.               "'lister menu_old'?"
  54.       )
  55.       (help "Installa la versione italiana del lister pop-up standard ")
  56.    )
  57.    (
  58.       (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
  59.       (copyfiles
  60.          (source "DOpus5:Buttons/lister menu_IT")
  61.          (dest "DOpus5:Buttons")
  62.          (newname "lister menu")
  63.       )
  64.    )
  65. )
  66. ;=============================================================================
  67. ; make Italian user menu the default
  68.  
  69. (if
  70.    (askbool
  71.       (prompt "La versione italiana dell'user menu è disponibile.\n\n"
  72.               "Volete installarla e rinominare quella vecchia come\n"
  73.               "'user menu_old'."
  74.       )
  75.       (help "Installa la versione italiana dello user menu standard ")
  76.    )
  77.    (
  78.       (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
  79.       (copyfiles
  80.          (source "DOpus5:Buttons/user menu_IT")
  81.          (dest "DOpus5:Buttons")
  82.          (newname "user menu")
  83.       )
  84.    )
  85. )
  86.  
  87. (exit)
  88.